home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
tsqed16.zip
/
QUOTE.QMA
< prev
next >
Wrap
Text File
|
1991-12-26
|
1KB
|
41 lines
* All rights reserved
* Put > quotes to mail (etc) messages
* By Timo Salmi, Thu 26-Dec-91
*
* To compile these macros apply QMAC QUOTE.MAC QUOTE.QMA /A- /B
*
* The QMAC.EXE macro translator is from
* garbo.uwasa.fi:/pc/editor/qmac215.zip
* (Also the earlier version 2.1 will do).
* ┌─────────────────────────────────────────────────────┐
* │ Append a > at the beginning of a single line, ALT 5 │
* └─────────────────────────────────────────────────────┘
@5 MacroBegin BegLine "> " BegLine CursorDown
* ┌──────────────────────────────────────────────────┐
* │ Quote the entire message from cursor down, ALT-4 │
* └──────────────────────────────────────────────────┘
@4 MacroBegin
loop:
JFalse endloop:
BegLine
"> "
BegLine
CursorDown
Jump loop:
endloop:
* ┌────────────────────────────────────────────────┐
* │ Quote the entire message from cursor up, ALT-6 │
* └────────────────────────────────────────────────┘
@6 MacroBegin
loop:
JFalse endloop:
BegLine
"> "
BegLine
CursorUp
Jump loop:
endloop: